home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1998 May / Macworld (1998-05).dmg / Games World / Shareware Games / Arcade / Supreme Commander / Supreme Commander.mac / 00038.ls < prev    next >
Encoding:
Text File  |  1996-01-30  |  727 b   |  28 lines
  1. on mouseDown
  2.   global donothing
  3.   if the visible of sprite 48 = 1 then
  4.     exit
  5.   else
  6.     if (the puppet of sprite 11 = 1) or (the puppet of sprite 17 = 1) then
  7.       set the visible of sprite 19 to 1
  8.       set the visible of sprite 22 to 1
  9.       puppetSprite(26, 0)
  10.       when timeOut then nothing
  11.       go("shake")
  12.     else
  13.       repeat with x = 8 to 14
  14.         puppetSprite(x, 0)
  15.       end repeat
  16.       set the visible of sprite 9 to 1
  17.       set the visible of sprite 10 to 1
  18.       set the visible of sprite 19 to 1
  19.       set the visible of sprite 7 to 1
  20.       set the visible of sprite 22 to 1
  21.       puppetSprite(26, 0)
  22.       when timeOut then nothing
  23.       go("SLIDE BUTTON")
  24.     end if
  25.   end if
  26.   set donothing to 1
  27. end
  28.